perm filename IINIT.LST[EAL,HE] blob
sn#708977 filedate 1983-04-29 generic text, type T, neo UTF8
IINIT MACRO M1113 29-APR-83 13:35 PAGE 1
1 000000 AC0=R0
2 000001 AC1=R1
3 000002 AC2=R2
4 000003 AC3=R3
5 000004 AC4=R4
6 000005 AC5=R5
7
8 .TITLE IINIT
9 .GLOBL $RESR6, $FILE
10 .GLOBL $RESR5
11 000014 $VER==12.
12
13 000000 .PSECT GLOBAL,D,OVR,GBL
14 000000 005644' $G$: .=.+5644
15
16 000000 .PSECT TABLES,D,OVR,GBL
17 000000 001001 $BITS: .WORD 1001
18 000002 004004 .WORD 4004
19 000004 020020 .WORD 20020
20 000006 100100 .WORD 100100
21 000010 000001 .WORD 1
22 000012 000002 .WORD 2
23 000014 000004 .WORD 4
24 000016 000010 .WORD 10
25 000020 000020 .WORD 20
26 000022 000040 .WORD 40
27 000024 000100 .WORD 100
28 000026 000200 .WORD 200
29 000030 000400 .WORD 400
30 000032 001000 .WORD 1000
31 000034 002000 .WORD 2000
32 000036 004000 .WORD 4000
33 000040 010000 .WORD 10000
34 000042 020000 .WORD 20000
35 000044 040000 .WORD 40000
36 000046 100000 .WORD 100000
37
38 000000 .PSECT CONSTS,D,CON,LCL
39 000000 $CONST:
40 000000 040507 .WORD 40507
41 000002 046522 .WORD 46522
42 000004 026040 .WORD 26040
43 000006 044107 .WORD 44107
44 000010 047101 .WORD 47101
45 000012 026104 .WORD 26104
46 000014 040522 .WORD 40522
47 000016 046522 .WORD 46522
48 000020 026040 .WORD 26040
49 000022 044122 .WORD 44122
50 000024 047101 .WORD 47101
51 000026 026104 .WORD 26104
52 000030 067503 .WORD 67503
53 000032 066165 .WORD 66165
54 000034 067144 .WORD 67144
55 000036 072047 .WORD 72047
56 000040 064440 .WORD 64440
57 000042 064556 .WORD 64556
IINIT MACRO M1113 29-APR-83 13:35 PAGE 1-1
58 000044 064564 .WORD 64564
59 000046 066141 .WORD 66141
60 000050 075151 .WORD 75151
61 000052 020145 .WORD 20145
62 000054 067520 .WORD 67520
63 000056 062567 .WORD 62567
64 000060 020162 .WORD 20162
65 000062 063157 .WORD 63157
66 000064 020146 .WORD 20146
67 000066 067546 .WORD 67546
68 000070 020162 .WORD 20162
69 000072 020040 .WORD 20040
70 000074 020040 .WORD 20040
71 000076 020040 .WORD 20040
72 000100 072524 .WORD 72524
73 000102 067162 .WORD 67162
74 000104 067440 .WORD 67440
75 000106 020156 .WORD 20156
76 000110 071141 .WORD 71141
77 000112 020155 .WORD 20155
78 000114 064550 .WORD 64550
79 000116 064147 .WORD 64147
80 000120 070040 .WORD 70040
81 000122 073557 .WORD 73557
82 000124 071145 .WORD 71145
83 000126 024040 .WORD 24040
84 000130 074524 .WORD 74524
85 000132 062560 .WORD 62560
86 000134 051440 .WORD 51440
87 000136 040520 .WORD 40520
88 000140 042503 .WORD 42503
89 000142 072040 .WORD 72040
90 000144 020157 .WORD 20157
91 000146 067543 .WORD 67543
92 000150 072156 .WORD 72156
93 000152 067151 .WORD 67151
94 000154 062565 .WORD 62565
95 000156 020054 .WORD 20054
96 000160 067141 .WORD 67141
97 000162 020171 .WORD 20171
98 000164 072157 .WORD 72157
99 000166 062550 .WORD 62550
100 000170 020162 .WORD 20162
101 000172 067564 .WORD 67564
102 000174 060440 .WORD 60440
103 000176 067542 .WORD 67542
104 000200 072162 .WORD 72162
105 000202 035051 .WORD 35051
106 000204 020040 .WORD 20040
107 000206 040440 .WORD 40440
108 000210 067542 .WORD 67542
109 000212 072162 .WORD 72162
110 000214 062145 .WORD 62145
111 000216 020040 .WORD 20040
112 000220 026440 .WORD 26440
113 000222 067040 .WORD 67040
114 000224 072157 .WORD 72157
IINIT MACRO M1113 29-APR-83 13:35 PAGE 1-2
115 000226 061440 .WORD 61440
116 000230 066141 .WORD 66141
117 000232 061151 .WORD 61151
118 000234 060562 .WORD 60562
119 000236 062564 .WORD 62564
120 000240 020144 .WORD 20144
121 000242 020040 .WORD 20040
122 000244 074524 .WORD 74524
123 000246 062560 .WORD 62560
124 000250 054440 .WORD 54440
125 000252 072040 .WORD 72040
126 000254 020157 .WORD 20157
127 000256 060543 .WORD 60543
128 000260 064554 .WORD 64554
129 000262 071142 .WORD 71142
130 000264 072141 .WORD 72141
131 000266 020145 .WORD 20145
132 000270 060503 .WORD 60503
133 000272 064554 .WORD 64554
134 000274 071142 .WORD 71142
135 000276 072141 .WORD 72141
136 000300 067551 .WORD 67551
137 000302 020156 .WORD 20156
138 000304 067543 .WORD 67543
139 000306 070155 .WORD 70155
140 000310 062554 .WORD 62554
141 000312 062564 .WORD 62564
142 000314 071105 .WORD 71105
143 000316 067562 .WORD 67562
144 000320 020162 .WORD 20162
145 000322 064167 .WORD 64167
146 000324 066151 .WORD 66151
147 000326 020145 .WORD 20145
148 000330 060543 .WORD 60543
149 000332 064554 .WORD 64554
150 000334 071142 .WORD 71142
151 000336 072141 .WORD 72141
152 000340 067151 .WORD 67151
153 000342 020147 .WORD 20147
154 000344 026040 .WORD 26040
155 000346 040440 .WORD 40440
156 000350 067542 .WORD 67542
157 000352 072162 .WORD 72162
158 000354 062145 .WORD 62145
159 000356 026440 .WORD 26440
160 000360 067040 .WORD 67040
161 000362 072157 .WORD 72157
162 000364 061440 .WORD 61440
163 000366 066141 .WORD 66141
164 000370 061151 .WORD 61151
165 000372 060562 .WORD 60562
166 000374 062564 .WORD 62564
167 000376 026144 .WORD 26144
168 000400 074524 .WORD 74524
169 000402 062560 .WORD 62560
170 000404 054440 .WORD 54440
171 000406 072040 .WORD 72040
IINIT MACRO M1113 29-APR-83 13:35 PAGE 1-3
172 000410 020157 .WORD 20157
173 000412 071164 .WORD 71164
174 000414 020171 .WORD 20171
175 000416 063541 .WORD 63541
176 000420 064541 .WORD 64541
177 000422 035156 .WORD 35156
178 000424 074524 .WORD 74524
179 000426 062560 .WORD 62560
180 000430 021040 .WORD 21040
181 000432 021131 .WORD 21131
182 000434 072040 .WORD 72040
183 000436 020157 .WORD 20157
184 000440 060543 .WORD 60543
185 000442 064554 .WORD 64554
186 000444 071142 .WORD 71142
187 000446 072141 .WORD 72141
188 000450 020145 .WORD 20145
189 000452 071141 .WORD 71141
190 000454 071555 .WORD 71555
191 000456 020072 .WORD 20072
192 000460 020040 .WORD 20040
193 000462 071105 .WORD 71105
194 000464 067562 .WORD 67562
195 000466 020162 .WORD 20162
196 000470 072544 .WORD 72544
197 000472 064562 .WORD 64562
198 000474 063556 .WORD 63556
199 000476 040440 .WORD 40440
200 000500 046522 .WORD 46522
201 000502 071440 .WORD 71440
202 000504 060564 .WORD 60564
203 000506 072162 .WORD 72162
204 000510 070165 .WORD 70165
205 000512 020041 .WORD 20041
206 000514 040440 .WORD 40440
207 000516 066562 .WORD 66562
208 000520 020163 .WORD 20163
209 000522 067556 .WORD 67556
210 000524 020164 .WORD 20164
211 000526 067151 .WORD 67151
212 000530 072151 .WORD 72151
213 000532 060551 .WORD 60551
214 000534 064554 .WORD 64554
215 000536 062572 .WORD 62572
216 000540 027144 .WORD 27144
217 000542 020040 .WORD 20040
218 000544 020040 .WORD 20040
219 000546 020040 .WORD 20040
220 000550 020040 .WORD 20040
221 000552 020040 .WORD 20040
222 000554 020040 .WORD 20040
223 000556 020040 .WORD 20040
224 000560 020040 .WORD 20040
225 000562 020040 .WORD 20040
226 000564 020040 .WORD 20040
227 000566 020040 .WORD 20040
228 000570 020040 .WORD 20040
IINIT MACRO M1113 29-APR-83 13:35 PAGE 1-4
229 000572 020040 .WORD 20040
230 000574 020040 .WORD 20040
231 000576 020040 .WORD 20040
232 000600 062527 .WORD 62527
233 000602 061554 .WORD 61554
234 000604 066557 .WORD 66557
235 000606 020145 .WORD 20145
236 000610 067564 .WORD 67564
237 000612 040440 .WORD 40440
238 000614 020114 .WORD 20114
239 000616 062526 .WORD 62526
240 000620 071562 .WORD 71562
241 000622 067551 .WORD 67551
242 000624 020156 .WORD 20156
243 000626 027063 .WORD 27063
244 000630 024501 .WORD 24501
245 000632 020040 .WORD 20040
246 000634 020040 .WORD 20040
247 000636 020040 .WORD 20040
248 000640 020040 .WORD 20040
249 000642 020040 .WORD 20040
250 000644 020040 .WORD 20040
251 000646 020040 .WORD 20040
252 000650 020040 .WORD 20040
253 000652 020040 .WORD 20040
254 000654 020040 .WORD 20040
255 000656 020040 .WORD 20040
256 000660 020040 .WORD 20040
257 000662 020040 .WORD 20040
258 000664 020040 .WORD 20040
259 000666 020040 .WORD 20040
260 000670 020040 .WORD 20040
261 000672 020040 .WORD 20040
262 000674 067111 .WORD 67111
263 000676 072151 .WORD 72151
264 000700 060551 .WORD 60551
265 000702 064554 .WORD 64554
266 000704 064572 .WORD 64572
267 000706 063556 .WORD 63556
268 000710 027056 .WORD 27056
269 000712 024456 .WORD 24456
270 000714 062533 .WORD 62533
271 000716 062156 .WORD 62156
272 000720 064440 .WORD 64440
273 000722 071141 .WORD 71141
274 000724 056555 .WORD 56555
275 000726 071533 .WORD 71533
276 000730 071571 .WORD 71571
277 000732 020166 .WORD 20166
278 000734 072554 .WORD 72554
279 000736 056560 .WORD 56560
280 000740 062533 .WORD 62533
281 000742 062156 .WORD 62156
282 000744 066040 .WORD 66040
283 000746 070165 .WORD 70165
284 000750 020135 .WORD 20135
285 000752 063533 .WORD 63533
IINIT MACRO M1113 29-APR-83 13:35 PAGE 1-5
286 000754 067105 .WORD 67105
287 000756 024164 .WORD 24164
288 000760 033061 .WORD 33061
289 000762 056451 .WORD 56451
290 000764 063533 .WORD 63533
291 000766 067105 .WORD 67105
292 000770 024164 .WORD 24164
293 000772 030060 .WORD 30060
294 000774 056451 .WORD 56451
295 000776 062533 .WORD 62533
296 001000 062156 .WORD 62156
297 001002 064440 .WORD 64440
298 001004 071167 .WORD 71167
299 001006 056554 .WORD 56554
300 001010 010525 .WORD 10525
301 001012 000000 .WORD 0
302 001014 000000 .WORD 0
303 001016 000000 .WORD 0
304 001020 000000 .WORD 0
305 001022 000000 .WORD 0
306 001024 000000 .WORD 0
307 001026 000000 .WORD 0
308 001030 000000 .WORD 0
309 001032 000000 .WORD 0
310 001034 000000 .WORD 0
311 001036 000000 .WORD 0
312 001040 000000 .WORD 0
313 001042 000000 .WORD 0
314 001044 000000 .WORD 0
315 001046 000000 .WORD 0
316
317 000000 .PSECT ,I,LCL
318 000000 $CODE:
IINIT MACRO M1113 29-APR-83 13:35 PAGE 2
320 ;GETPROMPTCHAR
321 000000 P27:
322 000000 005746 TST -(SP)
323 000002 004767 000000G JSR PC,$B75
324 .GLOBL $B75
325 000006 004767 000000G JSR PC,$B127
326 .GLOBL $B127
327 000012 012700 000177 MOV #177,R0
328 000016 005746 L2: TST -(SP)
329 000020 004767 000000G JSR PC,GETCHAR
330 .GLOBL GETCHAR
331 000024 112603 MOVB (SP)+,R3
332 000026 020300 CMP R3,R0
333 000030 101402 BLOS .+6
334 000032 004767 000000G JSR PC,$B45
335 .GLOBL $B45
336 000036 010305 MOV R3,R5
337 000040 120327 000012 CMPB R3,#12
338 000044 001764 BEQ L2
339 000046 120327 000015 CMPB R3,#15
340 000052 001002 BNE L5
341 000054 012705 000040 MOV #40,R5
342 000060 020500 L5: CMP R5,R0
343 000062 101402 BLOS .+6
344 000064 004767 000000G JSR PC,$B45
345 000070 110546 MOVB R5,-(SP)
346 000072 004767 000000G JSR PC,PPCHAR
347 .GLOBL PPCHAR
348 000076 004767 000000G JSR PC,PPOUTNOW
349 .GLOBL PPOUTNOW
350 000102 022705 000141 CMP #141,R5
351 000106 003013 BGT L7
352 000110 120527 000172 CMPB R5,#172
353 000114 003010 BGT L7
354 000116 010503 MOV R5,R3
355 000120 162703 000040 SUB #40,R3
356 000124 020300 CMP R3,R0
357 000126 101402 BLOS .+6
358 000130 004767 000000G JSR PC,$B45
359 000134 010305 MOV R3,R5
360 000136 020500 L7: CMP R5,R0
361 000140 101402 BLOS .+6
362 000142 004767 000000G JSR PC,$B45
363 000146 110566 000020 MOVB R5,20(SP)
364 000152 004767 000000G JSR PC,$B77
365 .GLOBL $B77
366 000156 005726 TST (SP)+
367 000160 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 3
369 ;BITON
370 000162 P29:
371 000162 010346 MOV R3,-(SP)
372 000164 004767 000000G JSR PC,$B127
373 000170 105066 000006 CLRB 6(SP)
374 000174 005737 005606' TST @#$G$+5606
375 000200 001002 BNE .+6
376 000202 004767 000000G JSR PC,$B47
377 .GLOBL $B47
378 000206 013703 005606' MOV @#$G$+5606,R3
379 000212 036366 000004 000004 BIT 4(R3),4(SP)
380 000220 001402 BEQ L10
381 000222 105266 000006 INCB 6(SP)
382 000226 012603 L10: MOV (SP)+,R3
383 000230 012616 MOV (SP)+,@SP
384 000232 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 4
386 ;WHICHARM
387 000234 P30:
388 000234 004767 000000G JSR PC,$B75
389 000240 004767 000000G JSR PC,$B127
390 000244 012700 000005 MOV #5,R0
391 000250 012704 000006 MOV #6,R4
392 000254 016503 000002 MOV 2(R5),R3
393 000260 005303 DEC R3
394 000262 022703 000003 CMP #3,R3
395 000266 103002 BHIS .+6
396 000270 004767 000000G L11: JSR PC,$B49
397 .GLOBL $B49
398 000274 006303 ASL R3
399 000276 000173 001050' JMP @$CONST+1050(R3)
400 001050 .PSECT CONSTS
401 001050 000302' L13
402 001052 000326' L14
403 001054 000346' L15
404 001056 000366' L16
405 000302 .PSECT
406 000302 160406 L13: SUB R4,SP
407 000304 010603 MOV SP,R3
408 000306 012702 000000' MOV #$CONST+0,R2
409 000312 010001 MOV R0,R1
410 000314 112223 L32766: MOVB (R2)+,(R3)+
411 000316 077102 SOB R1,L32766
412 000320 012746 000004 L32762: MOV #4,-(SP)
413 000324 000430 BR L32760
414
415 000326 160406 L14: SUB R4,SP
416 000330 010603 MOV SP,R3
417 000332 012702 000006' MOV #$CONST+6,R2
418 000336 010001 MOV R0,R1
419 000340 112223 L32765: MOVB (R2)+,(R3)+
420 000342 077102 SOB R1,L32765
421 000344 000417 BR L32761
422
423 000346 160406 L15: SUB R4,SP
424 000350 010603 MOV SP,R3
425 000352 012702 000014' MOV #$CONST+14,R2
426 000356 010001 MOV R0,R1
427 000360 112223 L32764: MOVB (R2)+,(R3)+
428 000362 077102 SOB R1,L32764
429 000364 000755 BR L32762
430
431 000366 160406 L16: SUB R4,SP
432 000370 010603 MOV SP,R3
433 000372 012702 000022' MOV #$CONST+22,R2
434 000376 010001 MOV R0,R1
435 000400 112223 L32763: MOVB (R2)+,(R3)+
436 000402 077102 SOB R1,L32763
437 000404 010046 L32761: MOV R0,-(SP)
438 000406 004767 000000G L32760: JSR PC,PP5
439 .GLOBL PP5
440 000412 004767 000000G L12: JSR PC,$B77
441 000416 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 5
443 ;POWERON
444 000420 P31:
445 000420 005746 TST -(SP)
446 000422 004767 000000G JSR PC,$B75
447 000426 004767 000000G JSR PC,$B127
448 000432 012700 000001 MOV #1,R0
449 000436 016503 000002 MOV 2(R5),R3
450 000442 005303 DEC R3
451 000444 022703 000003 CMP #3,R3
452 000450 103002 BHIS .+6
453 000452 004767 000000G L17: JSR PC,$B49
454 000456 006303 ASL R3
455 000460 000173 001060' JMP @$CONST+1060(R3)
456 001060 .PSECT CONSTS
457 001060 000464' L19
458 001062 000510' L20
459 001064 000536' L21
460 001066 000564' L22
461 000464 .PSECT
462 000464 005746 L19: TST -(SP)
463 000466 010046 MOV R0,-(SP)
464 000470 004767 177466 JSR PC,P29 ;BITON
465 000474 112603 MOVB (SP)+,R3
466 000476 020300 CMP R3,R0
467 000500 101402 BLOS .+6
468 000502 004767 000000G JSR PC,$B45
469 000506 000440 BR L32759
470
471 000510 005746 L20: TST -(SP)
472 000512 012746 000004 MOV #4,-(SP)
473 000516 004767 177440 JSR PC,P29 ;BITON
474 000522 112603 MOVB (SP)+,R3
475 000524 020300 CMP R3,R0
476 000526 101402 BLOS .+6
477 000530 004767 000000G JSR PC,$B45
478 000534 000425 BR L32759
479
480 000536 005746 L21: TST -(SP)
481 000540 012746 000020 MOV #20,-(SP)
482 000544 004767 177412 JSR PC,P29 ;BITON
483 000550 112603 MOVB (SP)+,R3
484 000552 020300 CMP R3,R0
485 000554 101402 BLOS .+6
486 000556 004767 000000G JSR PC,$B45
487 000562 000412 BR L32759
488
489 000564 005746 L22: TST -(SP)
490 000566 012746 000100 MOV #100,-(SP)
491 000572 004767 177364 JSR PC,P29 ;BITON
492 000576 112603 MOVB (SP)+,R3
493 000600 020300 CMP R3,R0
494 000602 101402 BLOS .+6
495 000604 004767 000000G JSR PC,$B45
496 000610 010304 L32759: MOV R3,R4
497 000612 020400 L18: CMP R4,R0
498 000614 101402 BLOS .+6
499 000616 004767 000000G JSR PC,$B45
IINIT MACRO M1113 29-APR-83 13:35 PAGE 5-1
500 000622 110466 000020 MOVB R4,20(SP)
501 000626 004767 000000G JSR PC,$B77
502 000632 005726 TST (SP)+
503 000634 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 6
505 .GLOBL CALIBRATE
506 000636 CALIBRATE:
507 000636 162706 000010 SUB #10,SP
508 000642 004767 000000G JSR PC,$B75
509 000646 004767 000000G JSR PC,$B127
510 000652 012766 000001 000016 MOV #1,16(SP)
511 000660 L25:
512 000660 005737 005606' L23: TST @#$G$+5606
513 000664 001002 BNE .+6
514 000666 004767 000000G JSR PC,$B47
515 000672 013703 005606' MOV @#$G$+5606,R3
516 000676 010346 MOV R3,-(SP)
517 000700 112766 000040 000024 MOVB #40,24(SP)
518 000706 105013 CLRB @R3
519 000710 016602 000020 MOV 20(SP),R2
520 000714 005302 DEC R2
521 000716 022702 000003 CMP #3,R2
522 000722 103002 BHIS .+6
523 000724 004767 000000G L27: JSR PC,$B49
524 000730 006302 ASL R2
525 000732 000172 001070' JMP @$CONST+1070(R2)
526 001070 .PSECT CONSTS
527 001070 000736' L29
528 001072 000754' L30
529 001074 000772' L31
530 001076 001010' L32
531 000736 .PSECT
532 000736 012763 000001 000002 L29: MOV #1,2(R3)
533 000744 012766 000002 000022 MOV #2,22(SP)
534 000752 000424 BR L28
535
536 000754 012763 000002 000002 L30: MOV #2,2(R3)
537 000762 012766 000010 000022 MOV #10,22(SP)
538 000770 000415 BR L28
539
540 000772 012763 000003 000002 L31: MOV #3,2(R3)
541 001000 012766 000040 000022 MOV #40,22(SP)
542 001006 000406 BR L28
543
544 001010 012763 000004 000002 L32: MOV #4,2(R3)
545 001016 012766 000200 000022 MOV #200,22(SP)
546 001024 112746 000001 L28: MOVB #1,-(SP)
547 001030 004767 000000G JSR PC,GETREPLY
548 .GLOBL GETREPLY
549 001034 005746 TST -(SP)
550 001036 010605 MOV SP,R5
551 001040 062705 000020 ADD #20,R5
552 001044 004767 177350 JSR PC,P31 ;POWERON
553 001050 116302 000001 MOVB 1(R3),R2
554 001054 010201 MOV R2,R1
555 001056 105116 COMB @SP
556 001060 141601 BICB @SP,R1
557 001062 105116 COMB @SP
558 001064 020127 000001 CMP R1,#1
559 001070 101402 BLOS .+6
560 001072 004767 000000G JSR PC,$B45
561 001076 010104 MOV R1,R4
IINIT MACRO M1113 29-APR-83 13:35 PAGE 6-1
562 001100 005702 TST R2
563 001102 001011 BNE L34
564 001104 012702 000054' MOV #$CONST+54,R2
565 001110 012700 000012 MOV #12,R0
566 001114 014246 L32758: MOV -(R2),-(SP)
567 001116 077002 SOB R0,L32758
568 001120 012746 000024 MOV #24,-(SP)
569 001124 000412 BR L32743
570
571 001126 005701 L34: TST R1
572 001130 001012 BNE L37
573 001132 012702 000100' MOV #$CONST+100,R2
574 001136 012700 000012 MOV #12,R0
575 001142 014246 L32757: MOV -(R2),-(SP)
576 001144 077002 SOB R0,L32757
577 001146 012746 000016 MOV #16,-(SP)
578 001152 004767 000000G L32743: JSR PC,PP20L
579 .GLOBL PP20L
580 001156 L35:
581 001156 005704 L37: TST R4
582 001160 001007 BNE L39
583 001162 010605 MOV SP,R5
584 001164 062705 000020 ADD #20,R5
585 001170 004767 177040 JSR PC,P30 ;WHICHARM
586 001174 004767 000000G JSR PC,PPOUTNOW
587 .GLOBL PPOUTNOW
588 001200 105763 000001 L39: TSTB 1(R3)
589 001204 001002 BNE .+6
590 001206 000167 000764 JMP L41
591 001212 005704 L42: TST R4
592 001214 001161 BNE L44
593 001216 012703 000124' MOV #$CONST+124,R3
594 001222 012702 000012 MOV #12,R2
595 001226 014346 L32756: MOV -(R3),-(SP)
596 001230 077202 SOB R2,L32756
597 001232 012746 000024 MOV #24,-(SP)
598 001236 004767 000000G JSR PC,PP20L
599 .GLOBL PP20L
600 001242 012703 000150' MOV #$CONST+150,R3
601 001246 012702 000012 MOV #12,R2
602 001252 014346 L32755: MOV -(R3),-(SP)
603 001254 077202 SOB R2,L32755
604 001256 012746 000024 MOV #24,-(SP)
605 001262 004767 000000G JSR PC,PP20
606 .GLOBL PP20
607 001266 012703 000174' MOV #$CONST+174,R3
608 001272 012702 000012 MOV #12,R2
609 001276 014346 L32754: MOV -(R3),-(SP)
610 001300 077202 SOB R2,L32754
611 001302 012746 000024 MOV #24,-(SP)
612 001306 004767 000000G JSR PC,PP20
613 .GLOBL PP20
614 001312 012703 000206' MOV #$CONST+206,R3
615 001316 012702 000005 MOV #5,R2
616 001322 014346 L32753: MOV -(R3),-(SP)
617 001324 077202 SOB R2,L32753
618 001326 012746 000011 MOV #11,-(SP)
IINIT MACRO M1113 29-APR-83 13:35 PAGE 6-2
619 001332 004767 000000G JSR PC,PP10
620 .GLOBL PP10
621 001336 004767 000000G JSR PC,PPOUTNOW
622 .GLOBL PPOUTNOW
623 001342 005746 TST -(SP)
624 001344 004767 176430 JSR PC,P27 ;GETPROMPTCHAR
625 001350 112603 MOVB (SP)+,R3
626 001352 020327 000177 CMP R3,#177
627 001356 101402 BLOS .+6
628 001360 004767 000000G JSR PC,$B45
629 001364 110366 000026 MOVB R3,26(SP)
630 001370 120327 000040 CMPB R3,#40
631 001374 001442 BEQ L46
632 001376 012703 000220' MOV #$CONST+220,R3
633 001402 012702 000005 MOV #5,R2
634 001406 014346 L32752: MOV -(R3),-(SP)
635 001410 077202 SOB R2,L32752
636 001412 012746 000010 MOV #10,-(SP)
637 001416 004767 000000G JSR PC,PP10L
638 .GLOBL PP10L
639 001422 005746 TST -(SP)
640 001424 016646 000026 MOV 26(SP),-(SP)
641 001430 004767 176526 JSR PC,P29 ;BITON
642 001434 105726 TSTB (SP)+
643 001436 001012 BNE L48
644 001440 012703 000244' MOV #$CONST+244,R3
645 001444 012702 000012 MOV #12,R2
646 001450 014346 L32751: MOV -(R3),-(SP)
647 001452 077202 SOB R2,L32751
648 001454 012746 000021 MOV #21,-(SP)
649 001460 004767 000000G JSR PC,PP20
650 .GLOBL PP20
651 001464 004767 000000G L48: JSR PC,PPLINE
652 .GLOBL PPLINE
653 001470 004767 000000G JSR PC,PPOUTNOW
654 .GLOBL PPOUTNOW
655 001474 012704 000001 MOV #1,R4
656 001500 000426 BR L49
657
658 001502 112746 000001 L46: MOVB #1,-(SP)
659 001506 004767 000000G JSR PC,GETREPLY
660 .GLOBL GETREPLY
661 001512 005746 TST -(SP)
662 001514 010605 MOV SP,R5
663 001516 062705 000022 ADD #22,R5
664 001522 004767 176672 JSR PC,P31 ;POWERON
665 001526 016603 000004 MOV 4(SP),R3
666 001532 116303 000001 MOVB 1(R3),R3
667 001536 105116 COMB @SP
668 001540 142603 BICB (SP)+,R3
669 001542 020327 000001 CMP R3,#1
670 001546 101402 BLOS .+6
671 001550 004767 000000G JSR PC,$B45
672 001554 010304 MOV R3,R4
673 001556 000615 L49: BR L42
674
675 001560 126627 000026 000040 L44: CMPB 26(SP),#40
IINIT MACRO M1113 29-APR-83 13:35 PAGE 6-3
676 001566 001402 BEQ L51
677 001570 005004 CLR R4
678 001572 000414 BR L52
679
680 001574 005746 L51: TST -(SP)
681 001576 016646 000026 MOV 26(SP),-(SP)
682 001602 004767 176354 JSR PC,P29 ;BITON
683 001606 112603 MOVB (SP)+,R3
684 001610 020327 000001 CMP R3,#1
685 001614 101402 BLOS .+6
686 001616 004767 000000G JSR PC,$B45
687 001622 010304 MOV R3,R4
688 001624 126627 000026 000040 L52: CMPB 26(SP),#40
689 001632 001161 BNE L54
690 001634 005704 TST R4
691 001636 001157 BNE L54
692 001640 012703 000270' MOV #$CONST+270,R3
693 001644 012702 000012 MOV #12,R2
694 001650 014346 L32750: MOV -(R3),-(SP)
695 001652 077202 SOB R2,L32750
696 001654 012746 000024 MOV #24,-(SP)
697 001660 004767 000000G JSR PC,PP20L
698 .GLOBL PP20L
699 001664 010605 MOV SP,R5
700 001666 062705 000020 ADD #20,R5
701 001672 004767 176336 JSR PC,P30 ;WHICHARM
702 001676 004767 000000G JSR PC,PPOUTNOW
703 .GLOBL PPOUTNOW
704 001702 005746 TST -(SP)
705 001704 004767 176070 JSR PC,P27 ;GETPROMPTCHAR
706 001710 112603 MOVB (SP)+,R3
707 001712 020327 000177 CMP R3,#177
708 001716 101402 BLOS .+6
709 001720 004767 000000G JSR PC,$B45
710 001724 110366 000026 MOVB R3,26(SP)
711 001730 120327 000131 CMPB R3,#131
712 001734 001065 BNE L57
713 001736 112776 000001 000002 MOVB #1,@2(SP)
714 001744 112746 000001 MOVB #1,-(SP)
715 001750 004767 000000G JSR PC,GETREPLY
716 .GLOBL GETREPLY
717 001754 016603 000002 MOV 2(SP),R3
718 001760 116303 000001 MOVB 1(R3),R3
719 001764 020327 000001 CMP R3,#1
720 001770 101402 BLOS .+6
721 001772 004767 000000G JSR PC,$B45
722 001776 010304 MOV R3,R4
723 002000 001413 BEQ L59
724 002002 012703 000314' MOV #$CONST+314,R3
725 002006 012702 000012 MOV #12,R2
726 002012 014346 L32749: MOV -(R3),-(SP)
727 002014 077202 SOB R2,L32749
728 002016 012746 000024 MOV #24,-(SP)
729 002022 004767 000000G JSR PC,PP20L
730 .GLOBL PP20L
731 002026 000427 BR L60
732
IINIT MACRO M1113 29-APR-83 13:35 PAGE 6-4
733 002030 012703 000340' L59: MOV #$CONST+340,R3
734 002034 012702 000012 MOV #12,R2
735 002040 014346 L32748: MOV -(R3),-(SP)
736 002042 077202 SOB R2,L32748
737 002044 012746 000024 MOV #24,-(SP)
738 002050 004767 000000G JSR PC,PP20L
739 .GLOBL PP20L
740 002054 162706 000006 SUB #6,SP
741 002060 010603 MOV SP,R3
742 002062 012702 000340' MOV #$CONST+340,R2
743 002066 012701 000005 MOV #5,R1
744 002072 112223 L32747: MOVB (R2)+,(R3)+
745 002074 077102 SOB R1,L32747
746 002076 012746 000003 MOV #3,-(SP)
747 002102 004767 000000G JSR PC,PP5
748 .GLOBL PP5
749 002106 000427 L60: BR L61
750
751 002110 012703 000372' L57: MOV #$CONST+372,R3
752 002114 012702 000012 MOV #12,R2
753 002120 014346 L32746: MOV -(R3),-(SP)
754 002122 077202 SOB R2,L32746
755 002124 012746 000024 MOV #24,-(SP)
756 002130 004767 000000G JSR PC,PP20L
757 .GLOBL PP20L
758 002134 162706 000006 SUB #6,SP
759 002140 010603 MOV SP,R3
760 002142 012702 000372' MOV #$CONST+372,R2
761 002146 012701 000005 MOV #5,R1
762 002152 112223 L32745: MOVB (R2)+,(R3)+
763 002154 077102 SOB R1,L32745
764 002156 012746 000005 MOV #5,-(SP)
765 002162 004767 000000G JSR PC,PP5
766 .GLOBL PP5
767 002166 004767 000000G L61: JSR PC,PPLINE
768 .GLOBL PPLINE
769 002172 004767 000000G JSR PC,PPOUTNOW
770 .GLOBL PPOUTNOW
771 002176 L41:
772 002176 005726 L54: TST (SP)+
773 002200 005726 TST (SP)+
774 002202 005704 TST R4
775 002204 001040 BNE L63
776 002206 012703 000424' MOV #$CONST+424,R3
777 002212 012702 000012 MOV #12,R2
778 002216 014346 L32744: MOV -(R3),-(SP)
779 002220 077202 SOB R2,L32744
780 002222 012746 000024 MOV #24,-(SP)
781 002226 004767 000000G JSR PC,PP20L
782 .GLOBL PP20L
783 002232 112746 000040 MOVB #40,-(SP)
784 002236 004767 000000G JSR PC,PPCHAR
785 .GLOBL PPCHAR
786 002242 004767 000000G JSR PC,PPOUTNOW
787 .GLOBL PPOUTNOW
788 002246 005746 TST -(SP)
789 002250 004767 175524 JSR PC,P27 ;GETPROMPTCHAR
IINIT MACRO M1113 29-APR-83 13:35 PAGE 6-5
790 002254 112603 MOVB (SP)+,R3
791 002256 020327 000177 CMP R3,#177
792 002262 101402 BLOS .+6
793 002264 004767 000000G JSR PC,$B45
794 002270 110366 000022 MOVB R3,22(SP)
795 002274 005004 CLR R4
796 002276 120327 000131 CMPB R3,#131
797 002302 001401 BEQ L65
798 002304 005204 INC R4
799 002306 L63:
800 002306 005704 L65: TST R4
801 002310 001002 BNE .+6
802 002312 000167 176342 JMP L25
803 002316 005266 000016 INC 16(SP)
804 002322 026627 000016 000004 CMP 16(SP),#4
805 002330 003002 BGT .+6
806 002332 000167 176322 JMP L23
807 002336 004767 000000G L24: JSR PC,$B77
808 002342 062706 000010 ADD #10,SP
809 002346 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 7
811 .GLOBL INITARMS
812 002350 INITARMS:
813 002350 162706 000006 SUB #6,SP
814 002354 004767 000000G JSR PC,$B75
815 002360 004767 000000G JSR PC,$B127
816 002364 012700 000012 MOV #12,R0
817 002370 012701 000024 MOV #24,R1
818 002374 012746 005606' MOV #$G$+5606,-(SP)
819 002400 012746 005616' MOV #$G$+5616,-(SP)
820 002404 004767 000000G JSR PC,INITMSG
821 .GLOBL INITMSG
822 002410 105037 005616' CLRB @#$G$+5616
823 002414 012705 000001 MOV #1,R5
824 002420 001435 BEQ L67
825 002422 012703 000450' MOV #$CONST+450,R3
826 002426 010002 MOV R0,R2
827 002430 014346 L32742: MOV -(R3),-(SP)
828 002432 077202 SOB R2,L32742
829 002434 010146 MOV R1,-(SP)
830 002436 004767 000000G JSR PC,PP20L
831 .GLOBL PP20L
832 002442 012703 000462' MOV #$CONST+462,R3
833 002446 012702 000005 MOV #5,R2
834 002452 014346 L32741: MOV -(R3),-(SP)
835 002454 077202 SOB R2,L32741
836 002456 012746 000010 MOV #10,-(SP)
837 002462 004767 000000G JSR PC,PP10
838 .GLOBL PP10
839 002466 004767 000000G JSR PC,PPOUTNOW
840 .GLOBL PPOUTNOW
841 002472 005746 TST -(SP)
842 002474 004767 175300 JSR PC,P27 ;GETPROMPTCHAR
843 002500 122627 000131 CMPB (SP)+,#131
844 002504 001002 BNE L69
845 002506 004767 176124 JSR PC,CALIBRATE
846 .GLOBL CALIBRATE
847 002512 000432 L69: BR L32737
848
849 002514 012703 000506' L67: MOV #$CONST+506,R3
850 002520 010002 MOV R0,R2
851 002522 014346 L32740: MOV -(R3),-(SP)
852 002524 077202 SOB R2,L32740
853 002526 010146 MOV R1,-(SP)
854 002530 004767 000000G JSR PC,PP20L
855 .GLOBL PP20L
856 002534 012703 000532' MOV #$CONST+532,R3
857 002540 010002 MOV R0,R2
858 002542 014346 L32739: MOV -(R3),-(SP)
859 002544 077202 SOB R2,L32739
860 002546 010146 MOV R1,-(SP)
861 002550 004767 000000G JSR PC,PP20
862 .GLOBL PP20
863 002554 012703 000544' MOV #$CONST+544,R3
864 002560 012702 000005 MOV #5,R2
865 002564 014346 L32738: MOV -(R3),-(SP)
866 002566 077202 SOB R2,L32738
867 002570 012746 000010 MOV #10,-(SP)
IINIT MACRO M1113 29-APR-83 13:35 PAGE 7-1
868 002574 004767 000000G JSR PC,PP10
869 .GLOBL PP10
870 002600 004767 000000G L32737: JSR PC,PPLINE
871 .GLOBL PPLINE
872 002604 004767 000000G L70: JSR PC,$B77
873 002610 062706 000006 ADD #6,SP
874 002614 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 8
876 .GLOBL KILLARMS
877 002616 KILLARMS:
878 002616 010346 MOV R3,-(SP)
879 002620 004767 000000G JSR PC,$B127
880 002624 005737 005606' TST @#$G$+5606
881 002630 001002 BNE .+6
882 002632 004767 000000G JSR PC,$B47
883 002636 013703 005606' MOV @#$G$+5606,R3
884 002642 112713 000002 MOVB #2,@R3
885 002646 004767 000000G JSR PC,SENDCMD
886 .GLOBL SENDCMD
887 002652 012603 MOV (SP)+,R3
888 002654 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 9
890 001100 .PSECT CONSTS
891 001100 041651 .WORD 41651
892 001102 114632 .WORD 114632
893 001104 041470 .WORD 41470
894 001106 102437 .WORD 102437
895 001110 041646 .WORD 41646
896 001112 063146 .WORD 63146
897 001114 041115 .WORD 41115
898 001116 165605 .WORD 165605
899 001120 041607 .WORD 41607
900 001122 063146 .WORD 63146
901 002656 .PSECT
902 .GLOBL CONSDEF
903 002656 CONSDEF:
904 002656 005746 TST -(SP)
905 002660 004767 000000G JSR PC,$B75
906 002664 174046 STF AC0,-(SP)
907 002666 004767 000000G JSR PC,$B127
908 002672 012700 001750 MOV #1750,R0
909 002676 012701 005624' MOV #$G$+5624,R1
910 002702 012702 005626' MOV #$G$+5626,R2
911 002706 012704 005630' MOV #$G$+5630,R4
912 002712 012705 000001 MOV #1,R5
913 002716 004767 000000G L71: JSR PC,$B36
914 .GLOBL $B36
915 002722 005205 INC R5
916 002724 020527 000017 CMP R5,#17
917 002730 003772 BLE L71
918 002732 012746 000544' L72: MOV #$CONST+544,-(SP)
919 002736 012746 000065 MOV #65,-(SP)
920 002742 011646 MOV @SP,-(SP)
921 002744 004767 000000G JSR PC,$B32
922 .GLOBL $B32
923 002750 004767 000000G JSR PC,$B36
924 002754 012705 000001 MOV #1,R5
925 002760 004767 000000G L73: JSR PC,$B36
926 002764 005205 INC R5
927 002766 020527 000003 CMP R5,#3
928 002772 003772 BLE L73
929 002774 012746 000632' L74: MOV #$CONST+632,-(SP)
930 003000 012746 000061 MOV #61,-(SP)
931 003004 011646 MOV @SP,-(SP)
932 003006 004767 000000G JSR PC,$B32
933 003012 004767 000000G JSR PC,$B36
934 003016 012705 000001 MOV #1,R5
935 003022 004767 000000G L75: JSR PC,$B36
936 003026 005205 INC R5
937 003030 020527 000010 CMP R5,#10
938 003034 003772 BLE L75
939 003036 005746 L76: TST -(SP)
940 003040 172427 040200 LDF #↑O40200,AC0
941 003044 174046 STF AC0,-(SP)
942 003046 170446 CLRF -(SP)
943 003050 170446 CLRF -(SP)
944 003052 004767 000000G JSR PC,VMAKE
945 .GLOBL VMAKE
946 003056 012637 005620' MOV (SP)+,@#$G$+5620
IINIT MACRO M1113 29-APR-83 13:35 PAGE 9-1
947 003062 001002 BNE .+6
948 003064 004767 000000G JSR PC,$B47
949 003070 013703 005620' MOV @#$G$+5620,R3
950 003074 010013 MOV R0,@R3
951 003076 005746 TST -(SP)
952 003100 170446 CLRF -(SP)
953 003102 172427 040200 LDF #↑O40200,AC0
954 003106 174046 STF AC0,-(SP)
955 003110 170446 CLRF -(SP)
956 003112 004767 000000G JSR PC,VMAKE
957 .GLOBL VMAKE
958 003116 012637 005622' MOV (SP)+,@#$G$+5622
959 003122 001002 BNE .+6
960 003124 004767 000000G JSR PC,$B47
961 003130 013703 005622' MOV @#$G$+5622,R3
962 003134 010013 MOV R0,@R3
963 003136 005746 TST -(SP)
964 003140 170446 CLRF -(SP)
965 003142 170446 CLRF -(SP)
966 003144 172427 040200 LDF #↑O40200,AC0
967 003150 174046 STF AC0,-(SP)
968 003152 004767 000000G JSR PC,VMAKE
969 .GLOBL VMAKE
970 003156 012611 MOV (SP)+,@R1
971 003160 001002 BNE .+6
972 003162 004767 000000G JSR PC,$B47
973 003166 011103 MOV @R1,R3
974 003170 010013 MOV R0,@R3
975 003172 005746 TST -(SP)
976 003174 170446 CLRF -(SP)
977 003176 170446 CLRF -(SP)
978 003200 170446 CLRF -(SP)
979 003202 004767 000000G JSR PC,VMAKE
980 .GLOBL VMAKE
981 003206 012612 MOV (SP)+,@R2
982 003210 001002 BNE .+6
983 003212 004767 000000G JSR PC,$B47
984 003216 011203 MOV @R2,R3
985 003220 010013 MOV R0,@R3
986 003222 005746 TST -(SP)
987 003224 005746 TST -(SP)
988 003226 011146 MOV @R1,-(SP)
989 003230 170446 CLRF -(SP)
990 003232 004767 000000G JSR PC,VSAXWR
991 .GLOBL VSAXWR
992 003236 011246 MOV @R2,-(SP)
993 003240 004767 000000G JSR PC,TMAKE
994 .GLOBL TMAKE
995 003244 012614 MOV (SP)+,@R4
996 003246 001002 BNE .+6
997 003250 004767 000000G JSR PC,$B47
998 003254 011403 MOV @R4,R3
999 003256 010013 MOV R0,@R3
1000 003260 005746 TST -(SP)
1001 003262 005746 TST -(SP)
1002 003264 011146 MOV @R1,-(SP)
1003 003266 172427 042064 LDF #↑O42064,AC0
IINIT MACRO M1113 29-APR-83 13:35 PAGE 9-2
1004 003272 174046 STF AC0,-(SP)
1005 003274 004767 000000G JSR PC,VSAXWR
1006 .GLOBL VSAXWR
1007 003300 005746 TST -(SP)
1008 003302 172437 001110' LDF @#↑O$CONST+1110,AC0
1009 003306 174046 STF AC0,-(SP)
1010 003310 172437 001104' LDF @#↑O$CONST+1104,AC0
1011 003314 174046 STF AC0,-(SP)
1012 003316 172437 001120' LDF @#↑O$CONST+1120,AC0
1013 003322 174046 STF AC0,-(SP)
1014 003324 004767 000000G JSR PC,VMAKE
1015 .GLOBL VMAKE
1016 003330 004767 000000G JSR PC,TMAKE
1017 .GLOBL TMAKE
1018 003334 012637 005632' MOV (SP)+,@#$G$+5632
1019 003340 005746 TST -(SP)
1020 003342 011446 MOV @R4,-(SP)
1021 003344 005746 TST -(SP)
1022 003346 172437 001100' LDF @#↑O$CONST+1100,AC0
1023 003352 174046 STF AC0,-(SP)
1024 003354 172437 001114' LDF @#↑O$CONST+1114,AC0
1025 003360 174046 STF AC0,-(SP)
1026 003362 172437 001120' LDF @#↑O$CONST+1120,AC0
1027 003366 174046 STF AC0,-(SP)
1028 003370 004767 000000G JSR PC,VMAKE
1029 .GLOBL VMAKE
1030 003374 004767 000000G JSR PC,TMAKE
1031 .GLOBL TMAKE
1032 003400 012637 005634' MOV (SP)+,@#$G$+5634
1033 003404 005737 005632' TST @#$G$+5632
1034 003410 001002 BNE .+6
1035 003412 004767 000000G JSR PC,$B47
1036 003416 013703 005632' MOV @#$G$+5632,R3
1037 003422 010013 MOV R0,@R3
1038 003424 005737 005634' TST @#$G$+5634
1039 003430 001002 BNE .+6
1040 003432 004767 000000G JSR PC,$B47
1041 003436 013703 005634' MOV @#$G$+5634,R3
1042 003442 010013 MOV R0,@R3
1043 003444 172426 LDF (SP)+,AC0
1044 003446 004767 000000G JSR PC,$B77
1045 003452 005726 TST (SP)+
1046 003454 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 10
1048 .GLOBL INITWORLD
1049 003456 INITWORLD:
1050 003456 162706 000014 SUB #14,SP
1051 003462 004767 000000G JSR PC,$B75
1052 003466 004767 000000G JSR PC,$B127
1053 003472 004767 176652 JSR PC,INITARMS
1054 .GLOBL INITARMS
1055 003476 012737 000012 003726' MOV #12,@#$G$+3726
1056 003504 012737 000024 003734' MOV #24,@#$G$+3734
1057 003512 005037 004612' CLR @#$G$+4612
1058 003516 012703 000726' MOV #$CONST+726,R3
1059 003522 012702 000005 MOV #5,R2
1060 003526 014346 L32736: MOV -(R3),-(SP)
1061 003530 077202 SOB R2,L32736
1062 003532 012746 000012 MOV #12,-(SP)
1063 003536 004767 000000G JSR PC,PP10
1064 .GLOBL PP10
1065 003542 004767 000000G JSR PC,PPOUTNOW
1066 .GLOBL PPOUTNOW
1067 003546 005037 005600' CLR @#$G$+5600
1068 003552 005037 005602' CLR @#$G$+5602
1069 003556 005037 005564' CLR @#$G$+5564
1070 003562 005037 005574' CLR @#$G$+5574
1071 003566 005037 005566' CLR @#$G$+5566
1072 003572 005037 005570' CLR @#$G$+5570
1073 003576 005037 005562' CLR @#$G$+5562
1074 003602 005037 005576' CLR @#$G$+5576
1075 003606 105037 005612' CLRB @#$G$+5612
1076 003612 105037 005615' CLRB @#$G$+5615
1077 003616 005746 TST -(SP)
1078 003620 004767 000000G JSR PC,NEWEHEADER
1079 .GLOBL NEWEHEADER
1080 003624 012637 005572' MOV (SP)+,@#$G$+5572
1081 003630 001002 BNE .+6
1082 003632 004767 000000G JSR PC,$B47
1083 003636 013703 005572' MOV @#$G$+5572,R3
1084 003642 010346 MOV R3,-(SP)
1085 003644 005013 CLR @R3
1086 003646 005063 000016 CLR 16(R3)
1087 003652 142763 000001 000015 BICB #1,15(R3)
1088 003660 005746 TST -(SP)
1089 003662 004767 000000G JSR PC,NEWENVIRONMENT
1090 .GLOBL NEWENVIRONMENT
1091 003666 012666 000026 MOV (SP)+,26(SP)
1092 003672 016663 000026 000002 MOV 26(SP),2(R3)
1093 003700 012746 000001 MOV #1,-(SP)
1094 003704 011603 L77: MOV @SP,R3
1095 003706 020327 000004 CMP R3,#4
1096 003712 101402 BLOS .+6
1097 003714 004767 000000G JSR PC,$B43
1098 .GLOBL $B43
1099 003720 006303 ASL R3
1100 003722 066603 000002 ADD 2(SP),R3
1101 003726 005063 000002 CLR 2(R3)
1102 003732 005216 INC @SP
1103 003734 021627 000004 CMP @SP,#4
1104 003740 003761 BLE L77
IINIT MACRO M1113 29-APR-83 13:35 PAGE 10-1
1105 003742 005726 L78: TST (SP)+
1106 003744 005726 TST (SP)+
1107 003746 005066 000020 CLR 20(SP)
1108 003752 012766 177777 000022 MOV #177777,22(SP)
1109 003760 013705 005214' MOV @#$G$+5214,R5
1110 003764 012703 000740' MOV #$CONST+740,R3
1111 003770 012702 000005 MOV #5,R2
1112 003774 014346 L32735: MOV -(R3),-(SP)
1113 003776 077202 SOB R2,L32735
1114 004000 012746 000012 MOV #12,-(SP)
1115 004004 004767 000000G JSR PC,PP10
1116 .GLOBL PP10
1117 004010 004767 000000G JSR PC,PPOUTNOW
1118 .GLOBL PPOUTNOW
1119 004014 005705 L79: TST R5
1120 004016 001002 BNE .+6
1121 004020 000167 000404 JMP L81
1122 004024 005746 TST -(SP)
1123 004026 012746 000024 MOV #24,-(SP)
1124 004032 060616 ADD SP,@SP
1125 004034 012746 000030 MOV #30,-(SP)
1126 004040 060616 ADD SP,@SP
1127 004042 012746 000034 MOV #34,-(SP)
1128 004046 060616 ADD SP,@SP
1129 004050 013746 005572' MOV @#$G$+5572,-(SP)
1130 004054 010546 MOV R5,-(SP)
1131 004056 004767 000000G JSR PC,ENTERENTRY
1132 .GLOBL ENTERENTRY
1133 004062 012666 000016 MOV (SP)+,16(SP)
1134 004066 005003 CLR R3
1135 004070 005705 TST R5
1136 004072 001002 BNE .+6
1137 004074 004767 000000G JSR PC,$B47
1138 004100 005001 CLR R1
1139 004102 156501 000007 BISB 7(R5),R1
1140 004106 005000 CLR R0
1141 004110 071027 000010 DIV #10,R0
1142 004114 136160 000000' 001010' BITB $BITS+0(R1),$CONST+1010(R0)
1143 004122 001401 BEQ L83
1144 004124 005203 INC R3
1145 004126 010304 L83: MOV R3,R4
1146 004130 001410 BEQ L85
1147 004132 005766 000016 TST 16(SP)
1148 004136 001002 BNE .+6
1149 004140 004767 000000G JSR PC,$B47
1150 004144 112776 000006 000016 MOVB #6,@16(SP)
1151 004152 016646 000016 L85: MOV 16(SP),-(SP)
1152 004156 010546 MOV R5,-(SP)
1153 004160 116503 000012 MOVB 12(R5),R3
1154 004164 042703 177760 BIC #177760,R3
1155 004170 010346 MOV R3,-(SP)
1156 004172 004767 000000G JSR PC,MAKEVAR
1157 .GLOBL MAKEVAR
1158 004176 005704 TST R4
1159 004200 001510 BEQ L87
1160 004202 005766 000016 TST 16(SP)
1161 004206 001002 BNE .+6
IINIT MACRO M1113 29-APR-83 13:35 PAGE 10-2
1162 004210 004767 000000G JSR PC,$B47
1163 004214 016603 000016 MOV 16(SP),R3
1164 004220 005763 000002 TST 2(R3)
1165 004224 001002 BNE .+6
1166 004226 004767 000000G JSR PC,$B47
1167 004232 016303 000002 MOV 2(R3),R3
1168 004236 105063 000004 CLRB 4(R3)
1169 004242 005002 CLR R2
1170 004244 116501 000013 MOVB 13(R5),R1
1171 004250 042701 177740 BIC #177740,R1
1172 004254 020127 000002 CMP R1,#2
1173 004260 001001 BNE L89
1174 004262 005202 INC R2
1175 004264 110263 000010 L89: MOVB R2,10(R3)
1176 004270 001403 BEQ L91
1177 004272 170463 000012 CLRF 12(R3)
1178 004276 000407 BR L92
1179
1180 004300 013763 005630' 000012 L91: MOV @#$G$+5630,12(R3)
1181 004306 005063 000014 CLR 14(R3)
1182 004312 005063 000016 CLR 16(R3)
1183 004316 005002 L92: CLR R2
1184 004320 156502 000007 BISB 7(R5),R2
1185 004324 000241 CLC
1186 004326 006002 ROR R2
1187 004330 022702 000006 CMP #6,R2
1188 004334 103432 BLO L93
1189 004336 006302 ASL R2
1190 004340 000172 001124' JMP @$CONST+1124(R2)
1191 001124 .PSECT CONSTS
1192 001124 004344' L95
1193 001126 004354' L96
1194 001130 004364' L97
1195 001132 004374' L98
1196 001134 004404' L99
1197 001136 004422' L93
1198 001140 004414' L100
1199 004344 .PSECT
1200 004344 012763 000001 000006 L95: MOV #1,6(R3)
1201 004352 000423 BR L94
1202
1203 004354 012763 000002 000006 L96: MOV #2,6(R3)
1204 004362 000417 BR L94
1205
1206 004364 012763 000003 000006 L97: MOV #3,6(R3)
1207 004372 000413 BR L94
1208
1209 004374 012763 000004 000006 L98: MOV #4,6(R3)
1210 004402 000407 BR L94
1211
1212 004404 012763 000005 000006 L99: MOV #5,6(R3)
1213 004412 000403 BR L94
1214
1215 004414 012763 000006 000006 L100: MOV #6,6(R3)
1216 004422 L87:
1217 004422 L94:
1218 004422 011505 L93: MOV @R5,R5
IINIT MACRO M1113 29-APR-83 13:35 PAGE 10-3
1219 004424 000167 177364 JMP L79
1220
1221 004430 012703 000752' L81: MOV #$CONST+752,R3
1222 004434 012702 000005 MOV #5,R2
1223 004440 014346 L32734: MOV -(R3),-(SP)
1224 004442 077202 SOB R2,L32734
1225 004444 012746 000012 MOV #12,-(SP)
1226 004450 004767 000000G JSR PC,PP10
1227 .GLOBL PP10
1228 004454 016646 000020 MOV 20(SP),-(SP)
1229 004460 004767 000000G JSR PC,PPINT
1230 .GLOBL PPINT
1231 004464 112746 000072 MOVB #72,-(SP)
1232 004470 004767 000000G JSR PC,PPCHAR
1233 .GLOBL PPCHAR
1234 004474 016646 000022 MOV 22(SP),-(SP)
1235 004500 004767 000000G JSR PC,PPINT
1236 .GLOBL PPINT
1237 004504 004767 000000G JSR PC,PPOUTNOW
1238 .GLOBL PPOUTNOW
1239 004510 016603 000022 MOV 22(SP),R3
1240 004514 005203 INC R3
1241 004516 010366 000020 MOV R3,20(SP)
1242 004522 026627 000020 000011 L101: CMP 20(SP),#11
1243 004530 003024 BGT L102
1244 004532 005766 000024 TST 24(SP)
1245 004536 001002 BNE .+6
1246 004540 004767 000000G JSR PC,$B47
1247 004544 016603 000020 MOV 20(SP),R3
1248 004550 020327 000011 CMP R3,#11
1249 004554 101402 BLOS .+6
1250 004556 004767 000000G JSR PC,$B43
1251 004562 006303 ASL R3
1252 004564 066603 000024 ADD 24(SP),R3
1253 004570 005063 000002 CLR 2(R3)
1254 004574 005266 000020 INC 20(SP)
1255 004600 102350 BVC L101
1256 004602 012703 000764' L102: MOV #$CONST+764,R3
1257 004606 012702 000005 MOV #5,R2
1258 004612 014346 L32733: MOV -(R3),-(SP)
1259 004614 077202 SOB R2,L32733
1260 004616 012746 000012 MOV #12,-(SP)
1261 004622 004767 000000G JSR PC,PP10
1262 .GLOBL PP10
1263 004626 004767 000000G JSR PC,PPOUTNOW
1264 .GLOBL PPOUTNOW
1265 004632 005746 TST -(SP)
1266 004634 005046 CLR -(SP)
1267 004636 012746 000020 MOV #20,-(SP)
1268 004642 004767 000000G JSR PC,GETENTRY
1269 .GLOBL GETENTRY
1270 004646 012637 005636' MOV (SP)+,@#$G$+5636
1271 004652 012703 000776' MOV #$CONST+776,R3
1272 004656 012702 000005 MOV #5,R2
1273 004662 014346 L32732: MOV -(R3),-(SP)
1274 004664 077202 SOB R2,L32732
1275 004666 012746 000012 MOV #12,-(SP)
IINIT MACRO M1113 29-APR-83 13:35 PAGE 10-4
1276 004672 004767 000000G JSR PC,PP10
1277 .GLOBL PP10
1278 004676 004767 000000G JSR PC,PPOUTNOW
1279 .GLOBL PPOUTNOW
1280 004702 005746 TST -(SP)
1281 004704 005046 CLR -(SP)
1282 004706 005046 CLR -(SP)
1283 004710 004767 000000G JSR PC,GETENTRY
1284 .GLOBL GETENTRY
1285 004714 012666 000016 MOV (SP)+,16(SP)
1286 004720 001002 BNE .+6
1287 004722 004767 000000G JSR PC,$B47
1288 004726 016603 000016 MOV 16(SP),R3
1289 004732 016337 000002 005640' MOV 2(R3),@#$G$+5640
1290 004740 005746 TST -(SP)
1291 004742 004767 000000G JSR PC,GETPDB
1292 .GLOBL GETPDB
1293 004746 012637 005562' MOV (SP)+,@#$G$+5562
1294 004752 012746 005614' MOV #$G$+5614,-(SP)
1295 004756 004767 000000G JSR PC,ESCINIT
1296 .GLOBL ESCINIT
1297 004762 012703 001010' MOV #$CONST+1010,R3
1298 004766 012702 000005 MOV #5,R2
1299 004772 014346 L32731: MOV -(R3),-(SP)
1300 004774 077202 SOB R2,L32731
1301 004776 012746 000012 MOV #12,-(SP)
1302 005002 004767 000000G JSR PC,PP10
1303 .GLOBL PP10
1304 005006 004767 000000G JSR PC,PPOUTNOW
1305 .GLOBL PPOUTNOW
1306 005012 004767 000000G JSR PC,$B77
1307 005016 062706 000014 ADD #14,SP
1308 005022 000207 RTS PC
IINIT MACRO M1113 29-APR-83 13:35 PAGE 11
1310 000001 .END
IINIT MACRO M1113 29-APR-83 13:35 PAGE 11-1
SYMBOL TABLE
AC0 =%000000 L21 000536R L32753 001322R L65 002306R PPLINE= ****** G
AC1 =%000001 L22 000564R L32754 001276R L67 002514R PPOUTN= ****** G
AC2 =%000002 L23 000660R L32755 001252R L69 002512R PP10 = ****** G
AC3 =%000003 L24 002336R L32756 001226R L7 000136R PP10L = ****** G
AC4 =%000004 L25 000660R L32757 001142R L70 002604R PP20 = ****** G
AC5 =%000005 L27 000724R L32758 001114R L71 002716R PP20L = ****** G
CALIBR 000636RG L28 001024R L32759 000610R L72 002732R PP5 = ****** G
CONSDE 002656RG L29 000736R L32760 000406R L73 002760R P27 000000R
ENTERE= ****** G L30 000754R L32761 000404R L74 002774R P29 000162R
ESCINI= ****** G L31 000772R L32762 000320R L75 003022R P30 000234R
GETCHA= ****** G L32 001010R L32763 000400R L76 003036R P31 000420R
GETENT= ****** G L32731 004772R L32764 000360R L77 003704R SENDCM= ****** G
GETPDB= ****** G L32732 004662R L32765 000340R L78 003742R TMAKE = ****** G
GETREP= ****** G L32733 004612R L32766 000314R L79 004014R VMAKE = ****** G
INITAR 002350RG L32734 004440R L34 001126R L81 004430R VSAXWR= ****** G
INITMS= ****** G L32735 003774R L35 001156R L83 004126R $BITS 000000R 003
INITWO 003456RG L32736 003526R L37 001156R L85 004152R $B127 = ****** G
KILLAR 002616RG L32737 002600R L39 001200R L87 004422R $B32 = ****** G
L10 000226R L32738 002564R L41 002176R L89 004264R $B36 = ****** G
L100 004414R L32739 002542R L42 001212R L91 004300R $B43 = ****** G
L101 004522R L32740 002522R L44 001560R L92 004316R $B45 = ****** G
L102 004602R L32741 002452R L46 001502R L93 004422R $B47 = ****** G
L11 000270R L32742 002430R L48 001464R L94 004422R $B49 = ****** G
L12 000412R L32743 001152R L49 001556R L95 004344R $B75 = ****** G
L13 000302R L32744 002216R L5 000060R L96 004354R $B77 = ****** G
L14 000326R L32745 002152R L51 001574R L97 004364R $CODE 000000R
L15 000346R L32746 002120R L52 001624R L98 004374R $CONST 000000R 004
L16 000366R L32747 002072R L54 002176R L99 004404R $FILE = ****** G
L17 000452R L32748 002040R L57 002110R MAKEVA= ****** G $G$ 000000R 002
L18 000612R L32749 002012R L59 002030R NEWEHE= ****** G $RESR5= ****** G
L19 000464R L32750 001650R L60 002106R NEWENV= ****** G $RESR6= ****** G
L2 000016R L32751 001450R L61 002166R PPCHAR= ****** G $VER = 000014 G
L20 000510R L32752 001406R L63 002306R PPINT = ****** G
. ABS. 000000 000
005024 001
GLOBAL 005644 002
TABLES 000050 003
CONSTS 001142 004
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 893 WORDS ( 4 PAGES)
DYNAMIC MEMORY: 20238 WORDS ( 77 PAGES)
ELAPSED TIME: 00:00:29
IINIT,IINIT=IINIT